home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
oriel.arc
/
COLOR.ORL
< prev
next >
Wrap
Text File
|
1991-07-31
|
14KB
|
649 lines
{------------------------------COLOR.ORL--------------------------------
This script builds a color palette, and lets you adjust the colors in
it. It is called from DEMO.ORL.
-----------------------------------------------------------------------}
{Set Environment}
SetWindow(MAXIMIZE)
DrawBackground
UseCoordinates(METRIC)
UseCaption("Color Palette")
{Set Variables}
Set Red=255
Set Green=255
Set Blue=255
Set OLD_SAVE_X1=5
Set OLD_SAVE_Y1=5
Set OLD_SAVE_X2=18
Set OLD_SAVE_Y2=20
Set Save_Red=255
Set Save_Green=255
Set Save_Blue=255
Set Modify_Red=255
Set Modify_Green=255
Set Modify_Blue=255
{Draw Colors}
UsePen(SOLID,2,0,0,0)
UseBrush(SOLID,255,255,255) {White}
DrawRoundRectangle(5,5,18,20,2,2)
UsePen(SOLID,1,0,0,0)
UseBrush(SOLID,192,192,192) {Lite_Grey}
DrawRoundRectangle(19,5,32,20,2,2)
UseBrush(SOLID,255,0,0) {Red}
DrawRoundRectangle(33,5,46,20,2,2)
UseBrush(SOLID,255,255,0) {Yellow}
DrawRoundRectangle(47,5,60,20,2,2)
UseBrush(SOLID,0,255,0) {Green}
DrawRoundRectangle(61,5,74,20,2,2)
UseBrush(SOLID,0,255,255) {Lite_Blue}
DrawRoundRectangle(75,5,88,20,2,2)
UseBrush(SOLID,0,0,255) {Dark_Blue}
DrawRoundRectangle(89,5,102,20,2,2)
UseBrush(SOLID,255,0,255) {Pink}
DrawRoundRectangle(103,5,116,20,2,2)
UseBrush(SOLID,255,255,128) {Lite_Yellow}
DrawRoundRectangle(117,5,130,20,2,2)
UseBrush(SOLID,0,255,128) {Lite_Green}
DrawRoundRectangle(131,5,144,20,2,2)
UseBrush(SOLID,128,255,255) {Sky_Blue}
DrawRoundRectangle(145,5,158,20,2,2)
UseBrush(SOLID,128,128,255) {Purple}
DrawRoundRectangle(159,5,172,20,2,2)
UseBrush(SOLID,255,0,128) {Lite_Red}
DrawRoundRectangle(173,5,186,20,2,2)
UseBrush(SOLID,255,128,64) {Orange}
DrawRoundRectangle(187,5,200,20,2,2)
UseBrush(SOLID,0,0,0) {Black}
DrawRoundRectangle(5,22,18,37,2,2)
UseBrush(SOLID,128,128,128) {Dark_Grey}
DrawRoundRectangle(19,22,32,37,2,2)
UseBrush(SOLID,128,0,0) {Dark Red}
DrawRoundRectangle(33,22,46,37,2,2)
UseBrush(SOLID,128,128,0) {Olive}
DrawRoundRectangle(47,22,60,37,2,2)
UseBrush(SOLID,0,128,0) {Dark_Green}
DrawRoundRectangle(61,22,74,37,2,2)
UseBrush(SOLID,0,128,128) {Aqua_Green}
DrawRoundRectangle(75,22,88,37,2,2)
UseBrush(SOLID,0,0,128) {Dark_Purple}
DrawRoundRectangle(89,22,102,37,2,2)
UseBrush(SOLID,128,0,128) {Dark_Pink}
DrawRoundRectangle(103,22,116,37,2,2)
UseBrush(SOLID,128,128,64) {Army_Tank}
DrawRoundRectangle(117,22,130,37,2,2)
UseBrush(SOLID,0,64,64) {Hunter_Green}
DrawRoundRectangle(131,22,144,37,2,2)
UseBrush(SOLID,0,128,255) {Another_Blue}
DrawRoundRectangle(145,22,158,37,2,2)
UseBrush(SOLID,0,64,128) {Title_Blue}
DrawRoundRectangle(159,22,172,37,2,2)
UseBrush(SOLID,64,0,128) {Another_Purple}
DrawRoundRectangle(173,22,186,37,2,2)
UseBrush(SOLID,128,64,0) {Rust}
DrawRoundRectangle(187,22,200,37,2,2)
{Set up the mouse}
SetMouse(5,5,18,20,WHITE,Temp,Temp,
19,5,32,20,LITE_GREY,Temp,Temp,
33,5,46,20,RED,Temp,Temp,
47,5,60,20,YELLOW,Temp,Temp,
61,5,74,20,GREEN,Temp,Temp,
75,5,88,20,LITE_BLUE,Temp,Temp,
89,5,102,20,DARK_BLUE,Temp,Temp,
103,5,116,20,PINK,Temp,Temp,
117,5,130,20,LITE_YELLOW,Temp,Temp,
131,5,144,20,LITE_GREEN,Temp,Temp,
145,5,158,20,SKY_BLUE,Temp,Temp,
159,5,172,20,PURPLE,Temp,Temp,
173,5,186,20,LITE_RED,Temp,Temp,
187,5,200,20,ORANGE,Temp,Temp,
5,22,18,37,BLACK,Temp,Temp,
19,22,32,37,DARK_GREY,Temp,Temp,
33,22,46,37,DARK_RED,Temp,Temp,
47,22,60,37,OLIVE,Temp,Temp,
61,22,74,37,DARK_GREEN,Temp,Temp,
75,22,88,37,AQUA_GREEN,Temp,Temp,
89,22,102,37,DARK_PURPLE,Temp,Temp,
103,22,116,37,DARK_PINK,Temp,Temp,
117,22,130,37,ARMY_TANK,Temp,Temp,
131,22,144,37,HUNTER_GREEN,Temp,Temp,
145,22,158,37,ANOTHER_BLUE,Temp,Temp,
159,22,172,37,TITLE_BLUE,Temp,Temp,
173,22,186,37,ANOTHER_PURPLE,Temp,Temp,
187,22,200,37,RUST,Temp,Temp,
110,50,120,60,RED_DOWN,Temp,Temp,
110,70,120,80,GREEN_DOWN,Temp,Temp,
110,90,120,100,BLUE_DOWN,Temp,Temp,
140,50,150,60,RED_UP,Temp,Temp,
140,70,150,80,GREEN_UP,Temp,Temp,
140,90,150,100,BLUE_UP,Temp,Temp,
85,115,105,125,End_It,Temp,Temp)
{Set up the keyboard}
SetKeyboard("E",End_It,
"e",End_It)
{Draw the large color patch}
UseBrush(SOLID,RED,GREEN,BLUE)
DrawRoundRectangle(50,50,100,100,3,3)
{Draw the Red, Green, and Blue text}
DrawText(125,44,"Red")
DrawText(123,64,"Green")
DrawText(125,84,"Blue")
{Draw the Grey Buttons}
UseBrush(SOLID,192,192,192)
DrawRoundRectangle(110,50,120,60,2,2)
DrawRoundRectangle(110,70,120,80,2,2)
DrawRoundRectangle(110,90,120,100,2,2)
DrawRoundRectangle(140,50,150,60,2,2)
DrawRoundRectangle(140,70,150,80,2,2)
DrawRoundRectangle(140,90,150,100,2,2)
UseBackground(TRANSPARENT,0,0,0)
DrawText(112,52,"<--")
DrawText(112,72,"<--")
DrawText(112,92,"<--")
DrawText(143,52,"-->")
DrawText(143,72,"-->")
DrawText(143,92,"-->")
DrawRoundRectangle(85,115,105,125,2,2)
UseFont("System",0,0,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(90,117,"E")
UseFont("System",0,0,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(93,117,"xit")
{Draw numbers within boxes}
DRAW_NUMBERS:
UseBrush(SOLID,255,255,255)
DrawRoundRectangle(125,50,135,60,2,2)
DrawRoundRectangle(125,70,135,80,2,2)
DrawRoundRectangle(125,90,135,100,2,2)
DrawNumber(126,52,RED)
DrawNumber(126,72,GREEN)
DrawNumber(126,92,BLUE)
UseBrush(SOLID,RED,GREEN,BLUE)
DrawRoundRectangle(50,50,100,100,3,3)
{Wait for input}
WAIT_FOR_INPUT:
WaitInput()
WHITE:
Gosub SAVE_COLOR
Set Red=255
Set Green=255
Set Blue=255
Gosub MODIFY_COLOR
Set New_X1=5
Set New_Y1=5
Set New_X2=18
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
LITE_GREY:
Gosub SAVE_COLOR
Set Red=192
Set Green=192
Set Blue=192
Gosub MODIFY_COLOR
Set New_X1=19
Set New_Y1=5
Set New_X2=32
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
RED:
Gosub SAVE_COLOR
Set Red=255
Set Green=0
Set Blue=0
Gosub MODIFY_COLOR
Set New_X1=33
Set New_Y1=5
Set New_X2=46
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
YELLOW:
Gosub SAVE_COLOR
Set Red=255
Set Green=255
Set Blue=0
Gosub MODIFY_COLOR
Set New_X1=47
Set New_Y1=5
Set New_X2=60
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
GREEN:
Gosub SAVE_COLOR
Set Red=0
Set Green=255
Set Blue=0
Gosub MODIFY_COLOR
Set New_X1=61
Set New_Y1=5
Set New_X2=74
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
LITE_BLUE:
Gosub SAVE_COLOR
Set Red=0
Set Green=255
set Blue=255
Gosub MODIFY_COLOR
Set New_X1=75
Set New_Y1=5
Set New_X2=88
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
DARK_BLUE:
Gosub SAVE_COLOR
Set Red=0
Set Green=0
Set Blue=255
Gosub MODIFY_COLOR
Set New_X1=89
Set New_Y1=5
Set New_X2=102
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
PINK:
Gosub SAVE_COLOR
Set Red=255
Set Green=0
Set Blue=255
Gosub MODIFY_COLOR
Set New_X1=103
Set New_Y1=5
Set New_X2=116
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
LITE_YELLOW:
Gosub SAVE_COLOR
Set Red=255
Set Green=255
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=117
Set New_Y1=5
Set New_X2=130
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
LITE_GREEN:
Gosub SAVE_COLOR
Set Red=0
Set Green=255
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=131
Set New_Y1=5
Set New_X2=144
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
SKY_BLUE:
Gosub SAVE_COLOR
Set Red=128
Set Green=255
Set Blue=255
Gosub MODIFY_COLOR
Set New_X1=145
Set New_Y1=5
Set New_X2=158
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
PURPLE:
Gosub SAVE_COLOR
Set Red=128
Set Green=128
Set Blue=255
Gosub MODIFY_COLOR
Set New_X1=159
Set New_Y1=5
Set New_X2=172
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
LITE_RED:
Gosub SAVE_COLOR
Set Red=255
Set Green=0
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=173
Set New_Y1=5
Set New_X2=186
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
ORANGE:
Gosub SAVE_COLOR
Set Red=255
Set Green=128
Set Blue=64
Gosub MODIFY_COLOR
Set New_X1=187
Set New_Y1=5
Set New_X2=200
Set New_Y2=20
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
BLACK:
Gosub SAVE_COLOR
Set Red=0
Set Green=0
Set Blue=0
Gosub MODIFY_COLOR
Set New_X1=5
Set New_Y1=22
Set New_X2=18
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
DARK_GREY:
Gosub SAVE_COLOR
Set Red=128
Set Green=128
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=19
Set New_Y1=22
Set New_X2=32
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
DARK_RED:
Gosub SAVE_COLOR
Set Red=128
Set Green=0
Set Blue=0
Gosub MODIFY_COLOR
Set New_X1=33
Set New_Y1=22
Set New_X2=46
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
OLIVE:
Gosub SAVE_COLOR
Set Red=128
Set Green=128
Set Blue=0
Gosub MODIFY_COLOR
Set New_X1=47
Set New_Y1=22
Set New_X2=60
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
DARK_GREEN:
Gosub SAVE_COLOR
Set Red=0
Set Green=128
Set Blue=0
Gosub MODIFY_COLOR
Set New_X1=61
Set New_Y1=22
Set New_X2=74
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
AQUA_GREEN:
Gosub SAVE_COLOR
Set Red=0
Set Green=128
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=75
Set New_Y1=22
Set New_X2=88
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
DARK_PURPLE:
Gosub SAVE_COLOR
Set Red=0
Set Green=0
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=89
Set New_Y1=22
Set New_X2=102
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
DARK_PINK:
Gosub SAVE_COLOR
Set Red=128
Set Green=0
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=103
Set New_Y1=22
Set New_X2=116
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
ARMY_TANK:
Gosub SAVE_COLOR
Set Red=128
Set Green=128
Set Blue=64
Gosub MODIFY_COLOR
Set New_X1=117
Set New_Y1=22
Set New_X2=130
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
HUNTER_GREEN:
Gosub SAVE_COLOR
Set Red=0
Set Green=64
Set Blue=64
Gosub MODIFY_COLOR
Set New_X1=131
Set New_Y1=22
Set New_X2=144
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
ANOTHER_BLUE:
Gosub SAVE_COLOR
Set Red=0
Set Green=128
Set Blue=255
Gosub MODIFY_COLOR
Set New_X1=145
Set New_Y1=22
Set New_X2=158
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
TITLE_BLUE:
Gosub SAVE_COLOR
Set Red=0
Set Green=64
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=159
Set New_Y1=22
Set New_X2=172
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
ANOTHER_PURPLE:
Gosub SAVE_COLOR
Set Red=64
Set Green=0
Set Blue=128
Gosub MODIFY_COLOR
Set New_X1=173
Set New_Y1=22
Set New_X2=186
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
RUST:
Gosub SAVE_COLOR
Set Red=128
Set Green=64
Set Blue=0
Gosub MODIFY_COLOR
Set New_X1=187
Set New_Y1=22
Set New_X2=200
Set New_Y2=37
Gosub MOVE_HIGHLIGHT
Goto DRAW_NUMBERS
{Increase the Red number by 1}
RED_UP:
If Modify_RED>=255 Then Beep | Goto WAIT_FOR_INPUT
Set Modify_RED=Modify_RED+1
UseBrush(SOLID,255,255,255)
DrawRoundRectangle(125,50,135,60,2,2)
DrawNumber(126,52,Modify_RED)
UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
DrawRoundRectangle(50,50,100,100,3,3)
Goto WAIT_FOR_INPUT
{Decrease the Red number by 1}
RED_DOWN:
If Modify_RED=0 Then Beep | Goto WAIT_FOR_INPUT
Set Modify_RED=Modify_RED-1
UseBrush(SOLID,255,255,255)
DrawRoundRectangle(125,50,135,60,2,2)
DrawNumber(126,52,Modify_RED)
UseBrush(SOLID,Modify_RED,GREEN,BLUE)
DrawRoundRectangle(50,50,100,100,3,3)
Goto WAIT_FOR_INPUT
{Increase the Green number by 1}
GREEN_UP:
If Modify_Green>=255 Then Beep | Goto WAIT_FOR_INPUT
Set Modify_GREEN=Modify_GREEN+1
UseBrush(SOLID,255,255,255)
DrawRoundRectangle(125,70,135,80,2,2)
DrawNumber(126,72,Modify_GREEN)
UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
DrawRoundRectangle(50,50,100,100,3,3)
Goto WAIT_FOR_INPUT
{Decrease the Green number by 1}
GREEN_DOWN:
If Modify_GREEN=0 Then Beep | Goto WAIT_FOR_INPUT
Set Modify_GREEN=Modify_GREEN-1
UseBrush(SOLID,255,255,255)
DrawRoundRectangle(125,70,135,80,2,2)
DrawNumber(126,72,Modify_GREEN)
UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
DrawRoundRectangle(50,50,100,100,3,3)
Goto WAIT_FOR_INPUT
{Increase the Blue number by 1}
BLUE_UP:
If Modify_BLUE>=255 Then Beep | Goto WAIT_FOR_INPUT
Set Modify_BLUE=Modify_BLUE+1
UseBrush(SOLID,255,255,255)
DrawRoundRectangle(125,90,135,100,2,2)
DrawNumber(126,92,Modify_BLUE)
UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
DrawRoundRectangle(50,50,100,100,3,3)
Goto WAIT_FOR_INPUT
{Decrease the Blue number by 1}
BLUE_DOWN:
If Modify_BLUE=0 Then Beep | Goto WAIT_FOR_INPUT
Set Modify_BLUE=Modify_BLUE-1
UseBrush(SOLID,255,255,255)
DrawRoundRectangle(125,90,135,100,2,2)
DrawNumber(126,92,Modify_BLUE)
UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
DrawRoundRectangle(50,50,100,100,3,3)
Goto WAIT_FOR_INPUT
{Subroutine to move the highlight}
MOVE_HIGHLIGHT:
UseBrush(NULL,0,0,0)
UsePen(SOLID,2,0,0,0)
DrawRoundRectangle(NEW_X1,NEW_Y1,NEW_X2,NEW_Y2,2,2)
UsePen(SOLID,1,0,0,0)
UseBrush(NULL,0,0,0)
UsePen(SOLID,2,255,255,255)
DrawRoundRectangle(OLD_SAVE_X1,OLD_SAVE_Y1,
OLD_SAVE_X2,OLD_SAVE_Y2,2,2)
UsePen(SOLID,1,0,0,0)
UseBrush(SOLID,SAVE_RED,SAVE_GREEN,SAVE_BLUE)
DrawRoundRectangle(OLD_SAVE_X1,OLD_SAVE_Y1,
OLD_SAVE_X2,OLD_SAVE_Y2,2,2)
Set OLD_SAVE_X1=NEW_X1
Set OLD_SAVE_Y1=NEW_Y1
Set OLD_SAVE_X2=NEW_X2
Set OLD_SAVE_Y2=NEW_Y2
Return
{Subroutine to save old color settings}
SAVE_COLOR:
Set Save_Red=Red
Set Save_Green=Green
Set Save_Blue=Blue
Return
{Subroutine to save the current color settings}
MODIFY_COLOR:
Set Modify_Red=Red
Set Modify_Green=Green
Set Modify_Blue=Blue
Return
{Exit}
END_IT:
End